3/16/23
More squirrel fact at https://wildlifeinformer.com/facts-about-squirrels/
mtcars |> transform(am = as.factor(am)) |> aggregate(mpg ~ am, mean) |> barplot(mpg ~ am, data = _)